home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / dos / math / ode25 / couposc.ode < prev    next >
Text File  |  1994-03-03  |  218b  |  18 lines
  1. # COUPOSC.ODE
  2. # Two coupled oscillators
  3. # Notice the beats !
  4.  
  5. $m -4
  6. $n 200
  7. $t 100
  8.  
  9. x1  = 0
  10. x2  = 9,8,7,6,5,4,3,2,1
  11. v1  = 0
  12. v2  = 0
  13. x1' = v1
  14. x2' = v2
  15. d   =  x2 - x1
  16. v1' = -x1 - 0.2*d
  17. v2' = -x2 + 0.1*d
  18.